home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / amigalib / dosupermethod.s < prev    next >
Text File  |  1999-01-01  |  459b  |  30 lines
  1.     section "CODE",code
  2.     xdef    _DoSuperMethod
  3.     xdef    _DoSuperMethodA
  4.     cnop    0,4
  5.  
  6. _DoSuperMethod:
  7.     lea     12(a7),a1
  8.     bra     L_DoSuperMethod
  9.  
  10. _DoSuperMethodA
  11.     move.l  12(a7),a1
  12.  
  13. L_DoSuperMethod
  14.     move.l  a2,-(a7)
  15.     movem.l 8(a7),a0/a2
  16.     move.l  a2,d0
  17.     beq     L_Null
  18.     move.l  a0,d0
  19.     beq     L_Null
  20.     move.l  24(a0),a0
  21.     bsr     L_Invoke
  22.     move.l  (a7)+,a2
  23. L_Null
  24.     rts
  25.  
  26. L_Invoke
  27.     move.l  8(a0),-(a7)
  28.     rts
  29.  
  30.